home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TextRequester.asc < prev    next >
Text File  |  1980-03-10  |  2KB  |  94 lines

  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. '  Command 
  12. '  -Wb Wind Open     
  13. '  -Wb Wind Base   
  14. '  -Wb Wind Rastport   
  15. '  -Str Store    
  16. '  -Wb Wind Title    
  17. '  -Wb Gfx Mode    
  18. '  -Wb Gfx Text    
  19. '  -Wb Bevel Box     
  20. '  -Wb Gfx Ink     
  21. '  -Wb Init Bool Gadget    
  22. '  -Wb Bevel Gadget    
  23. '  -Wb Insert Gadget     
  24. '  -Wb Refresh Gadget    
  25. '  -Get Msg    
  26. '  -Get Msg Iadr   
  27. '  -Wb Locker    
  28. '  -Wb Wind Close  
  29. '  -Str Free   
  30. '  -Wb Gfx Text  
  31. '
  32. Amos To Back 
  33. Wb Locker 1
  34. '
  35. Wb Wind Open SCR To 164,56,300,66,2+4+8+$2000000
  36. W=Wb Wind Base : R=Wb Wind Rastport(W)
  37. S0=Str Store("CIERP Philippe presente...")
  38. S1=Str Store(" Copyright 1994-98 * AmigaZETTE 83")
  39. Wb Wind Title W To S0,S1
  40. '
  41. Wb Gfx Mode R,1 : Wb Gfx Ink R To 2,0
  42. Wb Gfx Text "IntuiExtend.Lib v2.0 ©1994",47,24 To R
  43. Wb Gfx Text "Selectionnez un bouton S.V.P...",23,36 To R
  44. '
  45. Wb Bevel Box R To 1,2,11,13,285,43
  46. '
  47. Wb Gfx Ink R To 1,0
  48. '
  49. BOUT[R,10,48,88,2,1,"Ok"]
  50. BGAD0=Wb Init Bool Gadget(0,11,49,86,11,2) : Wb Bevel Gadget BGAD0
  51. Wb Insert Gadget W To BGAD0 : Wb Refresh Gadget W,BGAD0
  52. '
  53. BOUT[R,105,48,88,2,1,"Bell"]
  54. BGAD1=Wb Init Bool Gadget(1,106,49,86,11,2) : Wb Bevel Gadget BGAD1
  55. Wb Insert Gadget W To BGAD1 : Wb Refresh Gadget W,BGAD1
  56. '
  57. BOUT[R,200,48,88,2,1,"Annuler"]
  58. BGAD2=Wb Init Bool Gadget(2,201,49,86,11,2) : Wb Bevel Gadget BGAD2
  59. Wb Insert Gadget W To BGAD2 : Wb Refresh Gadget W,BGAD2
  60. '
  61. Do 
  62.    '
  63.    Z=Get Msg(W)
  64.    Z1=Get Msg Iadr
  65.    '
  66.    If Z1=BGAD0
  67.       G=1
  68.       Exit 
  69.    End If 
  70.    If Z1=BGAD1
  71.       Bell 
  72.    End If 
  73.    If Z1=BGAD2 or Z=$200
  74.       G=-1
  75.       Exit 
  76.    End If 
  77.    '
  78. Loop 
  79. '
  80. RR:
  81. Wb Locker 0
  82. Default 
  83. Print G
  84. Amos To Front 
  85. Wb Wind Close W
  86. Str Free S0
  87. Str Free S1
  88. Wait Key 
  89. '
  90. Procedure BOUT[R,X,Y,W,C0,C1,T$]
  91.    X1=(X+44)-(Len(T$)*4)
  92.    Wb Gfx Text T$,X1,Y+9 To R
  93. End Proc
  94.